home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9403a.d64 / kalender prg. 4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  434b  |  22 lines
  1. 10 INPUT"DATUM 1 FORMAT TTMMJJJJ ";D$
  2. 20 T=VAL(MID$(D$,1,2))
  3. 30 M=VAL(MID$(D$,3,2))
  4. 40 J=VAL(MID$(D$,5))
  5. 50 GOSUB 1000
  6. 60 J1=JD
  7. 70 INPUT"DATUM 2 FORMAT TTMMJJJJ ";D$
  8. 80 T=VAL(MID$(D$,1,2))
  9. 90 M=VAL(MID$(D$,3,2))
  10. 100 J=VAL(MID$(D$,5))
  11. 110 GOSUB 1000
  12. 120 R=JD-J1
  13. 130 PRINT "DAZWISCHEN LIEGEN"R"TAGE."
  14. 140 END
  15. 1000 REM KALENDER -> JULIANISCH
  16. 1010 IF M>2 THEN M=M-3:GOTO 1030
  17. 1020 M=M+9:J=J-1
  18. 1030 JH=INT(J/100):JA=J-100*JH
  19. 1040 JD=INT(146097*JH/4)+INT(1461*JA/4)
  20. 1050 JD=JD+INT((153*M+2)/5)+T
  21. 1060 RETURN
  22.